home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / CMPLTPAS / BEEP.PAS < prev    next >
Pascal/Delphi Source File  |  1988-07-14  |  372b  |  21 lines
  1. {<<<< Beep >>>>}
  2. { From: COMPLETE TURBO PASCAL 5.0 by Jeff Duntemann  }
  3. { Scott, Foresman & Co. 1988      ISBN 0-673-38355-5 }
  4. { Described in section 16.13  --   Last mod 7/14/88  }
  5.  
  6. PROCEDURE Beep;
  7.  
  8. VAR
  9.   I : Integer;
  10.  
  11. BEGIN
  12.   FOR I := 1 TO 3 DO
  13.     BEGIN
  14.       Sound(800);
  15.       Delay(50);
  16.       Sound(500);
  17.       Delay(50)
  18.     END;
  19.   NoSound;
  20. END;
  21.